home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / wrt____7.p2s < prev    next >
Encoding:
Text File  |  1994-05-05  |  3.0 KB  |  113 lines
  1. ###############################################################
  2. # Description:  Open the wave player, load, set record settings,
  3. # record, seek, play, save, close . Monitor input disable.
  4. #
  5. #  NOTE: Ensure an audio source is connected to the line in jack
  6. #        of the audio card, otherwise it will be a blank record.
  7. ###############################################################
  8.  
  9. ############################################
  10. #
  11. #   OPEN THE DIGITAL AUDIO PLAYER
  12. #   WAIT FOR SUCCESSFUL OPEN
  13. #
  14. ############################################
  15.  
  16. open waveaudio00 alias wave notify
  17. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  18. @WAIT_NOTIFY 1 45000
  19.  
  20. ###############################################
  21. #
  22. #  ENABLE MONITOR INPUT  &  CHECK ITS STATUS
  23. #
  24. ################################################
  25.  
  26. CONNECTION wave query type wave stream alias AmpMixer wait
  27. CONNECTOR wave enable type LINE IN notify
  28.  
  29. SET AmpMixer MONITOR OFF wait
  30. status AmpMixer monitor wait
  31. =false
  32.  
  33. ############################################
  34. #
  35. #   LOAD A NEW FILE TO BE RECORDED
  36. #
  37. ############################################
  38.  
  39. load wave new notify
  40. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  41. @WAIT_NOTIFY 2 30000
  42.  
  43. ############################################
  44. #
  45. #   SET THE DIGITAL AUDIO PLAYER
  46. #   TIME FORMAT - MILLISECONDS
  47. #   BITS PER SAMPLE - 8
  48. #   SAMPLES PER SEC - 44.1 Khz
  49. #   CHANNELS - 1
  50. #   FORMAT TAG - ALAW
  51. #
  52. ############################################
  53.  
  54. set wave time format milliseconds wait
  55. status wave time format wait
  56. =milliseconds
  57. set wave bitspersample 8 wait
  58. status wave bitspersample wait
  59. =8
  60. set wave samplespersec 44100 wait
  61. status wave samplespersec wait
  62. =44100
  63. set wave channels 1 wait
  64. status wave channels wait
  65. =1
  66. set wave format tag ALAW wait
  67. status wave format tag wait
  68. =ALAW
  69.  
  70. ############################################
  71. #
  72. #   RECORD THE NEW WAVE FILE
  73. #
  74. ############################################
  75. #***************************************************************
  76. @REM Ensure an audio source is connected to the line in jack of the
  77. @REM audio card, otherwise it will be a blank record.
  78. @REM #***************************************************************
  79.  
  80. record wave from 0 to 10000 notify
  81. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #3
  82. @WAIT_NOTIFY 3 20000
  83.  
  84. ############################################
  85. #
  86. #   SEEK TO START
  87. #   PLAY THE NEW RECORDED FILE
  88. #   SAVE THE NEW RECORDED FILE
  89. #
  90. ############################################
  91.  
  92. seek wave to 0 wait
  93. status wave position wait
  94. =0
  95. play wave notify
  96. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #4
  97. @WAIT_NOTIFY 4 45000
  98. save wave delete.wav notify
  99. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #5
  100. @WAIT_NOTIFY 5 45000
  101.  
  102. ############################################
  103. #
  104. #   CLOSE THE DIGITAL AUDIO PLAYER AND
  105. #   EXPECT A SUCCESSFUL CLOSE
  106. #
  107. ############################################
  108.  
  109. close wave notify
  110. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #6
  111. @WAIT_NOTIFY 6 45000
  112.  
  113.